home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / clusask.dxr / 00029.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  1.0 KB  |  51 lines
  1. on exitFrame
  2.   set i to 26
  3.   set z to 3
  4.   repeat while i < 29
  5.     if the mouseCast = i then
  6.       set the visible of sprite z to 1
  7.     else
  8.       if the visible of sprite z = 1 then
  9.         set the visible of sprite z to 0
  10.       end if
  11.     end if
  12.     set i to i + 1
  13.     set z to z + 1
  14.   end repeat
  15.   go(the frame)
  16. end
  17.  
  18. on mouseDown
  19.   set i to 26
  20.   set z to 6
  21.   repeat while i < 29
  22.     if the mouseCast = i then
  23.       set the visible of sprite z to 1
  24.     end if
  25.     set i to i + 1
  26.     set z to z + 1
  27.   end repeat
  28. end
  29.  
  30. on mouseUp
  31.   global coracao, luva, cacto
  32.   if the visible of sprite 6 = 1 then
  33.     set the visible of sprite 6 to 0
  34.     set the visible of sprite 3 to 0
  35.     set luva to luva + 1
  36.     go(the frame + 1)
  37.   end if
  38.   if the visible of sprite 7 = 1 then
  39.     set the visible of sprite 7 to 0
  40.     set the visible of sprite 4 to 0
  41.     set coracao to coracao + 1
  42.     go(the frame + 1)
  43.   end if
  44.   if the visible of sprite 8 = 1 then
  45.     set the visible of sprite 8 to 0
  46.     set the visible of sprite 5 to 0
  47.     set cacto to cacto + 1
  48.     go(the frame + 1)
  49.   end if
  50. end
  51.